home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00061_EN 1831-1971.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.1 KB  |  33 lines
  1. on mouseDown
  2.   global theArticle, whHead
  3.   set mv to the mouseV
  4.   set mh to the mouseH
  5.   put "30,174,248,209" into line 1 of bgArray
  6.   put "61,230,339,265" into line 2 of bgArray
  7.   put "280,152,593,223" into line 3 of bgArray
  8.   set whHead to 0
  9.   repeat with n = 1 to 3
  10.     if (mh > item 1 of line n of bgArray) and (mh < item 3 of line n of bgArray) then
  11.       if (mv > item 2 of line n of bgArray) and (mv < item 4 of line n of bgArray) then
  12.         set whHead to n
  13.         spriteBox(43, value(item 1 of line whHead of bgArray), value(item 2 of line whHead of bgArray), value(item 3 of line whHead of bgArray), value(item 4 of line whHead of bgArray))
  14.         updateStage()
  15.       end if
  16.     end if
  17.   end repeat
  18.   clearLists()
  19.   if whHead = 1 then
  20.     set theArticle to "EN070402.asc>BirdsΓÇÖ Preservation Act>0"
  21.     winArticle()
  22.   end if
  23.   if whHead = 2 then
  24.     set theArticle to "EN070401.asc>Sea BirdsΓÇÖ Preservation Bill>0"
  25.     winArticle()
  26.   end if
  27.   if whHead = 3 then
  28.     set theArticle to "EN010601.asc>Inspectorate the key to welfare of animals>0"
  29.     winArticle()
  30.   end if
  31.   setOffStage("43")
  32. end
  33.